home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 70 / examples / examples.arc / NUM.ST < prev    next >
Text File  |  1985-11-20  |  1KB  |  54 lines
  1. Class Main
  2. [
  3.     testChars
  4.         ($A max: $a) print.
  5.         (4 between: 3.1 and: (17/3)) print.
  6.         ($A < $0) print.
  7.         $A asciiValue print.
  8.         $A asString print.
  9.         $A printString print.
  10.         $A isVowel print.
  11.         $A digitValue print
  12. |
  13.     testNums
  14.         3 + 4.1 ; print.
  15.         3.14159 exp print.
  16.         1 pi exp print.
  17.         3.5 radians print.
  18.         13 roundTo: 5 ; print.
  19.         13 truncateTo: 5 ; print.
  20.         (smalltalk perform: #+ withArguments: #(3 4.1) ) print.
  21.         (smalltalk doPrimitive: 10 withArguments: #(3 4) ) print
  22. |
  23.     testInts
  24.         5 allMask: 4 ; print.
  25.         4 allMask: 5 ; print.
  26.         5 anyMask: 4 ; print.
  27.         5 bitAnd: 3 ; print.
  28.         5 bitOr: 3 ; print.
  29.         5 bitInvert print.
  30.         254 radix: 16 ; print.
  31.         5 reciprocal print.
  32.         -5 // 4 ; print.
  33.         -5 quo: 4 ; print.
  34.         -5 \\ 4 ; print.
  35.         -5 rem: 4 ; print.
  36.         4 factorial print.
  37. |
  38.     testFloats
  39.         2.1 ^ 4 ; print.
  40.         0.5 arcSin print.
  41.         4.3 sqrt print.
  42.         256 log: 10 ; print.
  43.         16rC.ABC print.
  44.         (14.5408 radix: 16) print.
  45.         0.5236 radians sin print.
  46.         (100 @ 12) transpose print.
  47. |
  48.     main
  49.         self testChars.
  50.         self testNums.
  51.         self testInts.
  52.         self testFloats.
  53. ]
  54.